/ Morton Subotnick - All My Hummingbirds Have Alibis / CD [Hummingbirds].bin / CD-ROM Files / Introduction / Introduction.rsrc / VWCI_1025

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 32 a7 50 | 00 00 00 01 00 00 00 00 |.....2.P|........|
|00000010| 00 05 00 00 00 00 00 00 | 01 d8 00 00 01 d9 00 00 |........|........|
|00000020| 01 d9 00 00 01 d9 00 00 | 01 d9 6f 6e 20 6d 6f 75 |........|..on mou|
|00000030| 73 65 55 70 0d 20 20 67 | 6c 6f 62 61 6c 20 67 43 |seUp.  g|lobal gC|
|00000040| 75 72 4c 6f 63 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |urLoc.  |global g|
|00000050| 45 4d 69 6e 2c 67 45 53 | 65 63 2c 67 45 42 6c 6b |EMin,gES|ec,gEBlk|
|00000060| 0d 20 20 69 66 20 43 44 | 53 74 61 74 75 73 28 29 |.  if CD|Status()|
|00000070| 20 3d 20 22 31 22 20 74 | 68 65 6e 0d 20 20 20 20 | = "1" t|hen.    |
|00000080| 43 44 50 61 75 73 65 0d | 20 20 20 20 70 75 74 20 |CDPause.|    put |
|00000090| 43 44 45 6c 61 70 73 65 | 64 28 29 20 69 6e 74 6f |CDElapse|d() into|
|000000a0| 20 67 43 75 72 4c 6f 63 | 0d 20 20 65 6c 73 65 0d | gCurLoc|.  else.|
|000000b0| 20 20 20 20 69 66 20 28 | 67 43 75 72 4c 6f 63 20 |    if (|gCurLoc |
|000000c0| 3d 20 30 20 6f 72 20 67 | 43 75 72 4c 6f 63 20 3d |= 0 or g|CurLoc =|
|000000d0| 20 22 22 29 20 74 68 65 | 6e 0d 20 20 20 20 20 70 | "") the|n.     p|
|000000e0| 75 74 20 32 34 20 69 6e | 74 6f 20 67 45 4d 69 6e |ut 24 in|to gEMin|
|000000f0| 0d 20 20 20 20 20 20 70 | 75 74 20 31 33 20 69 6e |.      p|ut 13 in|
|00000100| 74 6f 20 67 45 53 65 63 | 0d 20 20 20 20 20 20 70 |to gESec|.      p|
|00000110| 75 74 20 33 35 20 69 6e | 74 6f 20 67 45 42 6c 6b |ut 35 in|to gEBlk|
|00000120| 0d 20 20 20 20 20 44 6f | 43 44 50 6c 61 79 20 32 |.     Do|CDPlay 2|
|00000130| 31 2c 34 39 2c 30 30 2c | 32 34 2c 31 33 2c 33 35 |1,49,00,|24,13,35|
|00000140| 0d 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |.     el|se.     |
|00000150| 20 43 44 50 6c 61 79 20 | 69 74 65 6d 20 32 20 6f | CDPlay |item 2 o|
|00000160| 66 20 67 43 75 72 4c 6f | 63 2c 20 69 74 65 6d 20 |f gCurLo|c, item |
|00000170| 33 20 6f 66 20 67 43 75 | 72 4c 6f 63 2c c2 0d 69 |3 of gCu|rLoc,..i|
|00000180| 74 65 6d 20 34 20 6f 66 | 20 67 43 75 72 4c 6f 63 |tem 4 of| gCurLoc|
|00000190| 2c 67 45 4d 69 6e 2c 67 | 45 53 65 63 2c 67 45 42 |,gEMin,g|ESec,gEB|
|000001a0| 6c 6b 0d 20 20 20 20 20 | 20 70 75 74 20 67 43 75 |lk.     | put gCu|
|000001b0| 72 4c 6f 63 0d 20 20 20 | 20 20 20 70 75 74 20 67 |rLoc.   |   put g|
|000001c0| 45 4d 69 6e 26 26 67 45 | 53 65 63 26 26 67 45 42 |EMin&&gE|Sec&&gEB|
|000001d0| 6c 6b 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |lk.    e|nd if.  |
|000001e0| 65 6e 64 20 69 66 0d 20 | 20 75 70 64 61 74 65 43 |end if. | updateC|
|000001f0| 75 72 73 6f 72 73 0d 65 | 6e 64 20 6d 6f 75 73 65 |ursors.e|nd mouse|
|00000200| 55 70 00                |                         |Up.     |        |
+--------+-------------------------+-------------------------+--------+--------+